home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pc3sc.mrg < prev    next >
Text File  |  1985-06-03  |  1KB  |  28 lines
  1. 116 SP=0:CLIN$=STRING$(79,32) 
  2. 340 FOR I=1 TO 5:READ A$:PRINT TAB(39) VL$;A$;SPACE$(38-LEN(A$));VL$:NEXT 
  3. 391 DATA"        <Ctr>-Home for Split 
  4. 392 DATA"              Screen Operation 
  5. 517 IF TMP$="" AND SP THEN XPOS=1 
  6. 555 IF SP THEN 11000 
  7. 558 PRINT#1,B$; 
  8. 612 IF SP THEN LOCATE ROW,COL,0 
  9. 630 NEXT 
  10. 650 NEXT:GOTO 660 
  11. 660 IF SP THEN ROW=CSRLIN:COL=POS(0):LOCATE 25,XPOS,1 
  12. 661 IF PR THEN PR$=PR$+A$:GOSUB 800 
  13. 1682 IF EX=119 THEN 10000 
  14. 10000 IF SP THEN SP=0:TMP$="":LOCATE ROW,COL,1:PRINT:PRINT ELSE 10010 
  15. 10001 PRINT"===Split Screen Operation Off":BEEP:PRINT:ROW=CSRLIN:COL=POS(0) 
  16. 10002 LOCATE 25,1,0:PRINT CLIN$:LOCATE ROW,COL,1:GOTO 515 
  17. 10010 SP=-1:BEEP:PRINT:PRINT"===Split Screen Operation On":ROW=CSRLIN 
  18. 10012 COL=POS(0):LOCATE 25,1,1:GOTO 515 
  19. 11000 IF B$=CR$ THEN B$=TMP$+B$:TMP$="":LOCATE 25,1,0:PRINT CLIN$;:GOTO 558 
  20. 11020 IF B$=CHR$(27) THEN TMP$="":LOCATE 25,1,0:PRINT CLIN$;:XPOS=1 ELSE 11030 
  21. 11022 LOCATE 25,XPOS,1:GOTO 560 
  22. 11030 IF B$=BS$ AND XPOS>1 THEN TMP$=LEFT$(TMP$,LEN(TMP$)-1) ELSE 11040 
  23. 11032 XPOS=XPOS-1:GOSUB 2655:LOCATE 25,XPOS,1:GOTO 560 
  24. 11040 IF B$=BS$ AND XPOS=1 THEN 560
  25. 11050 LOCATE 25,XPOS,1:PRINT B$;:TMP$=TMP$+B$:XPOS=XPOS+1
  26. 11055 IF XPOS>79 THEN XPOS=1
  27. 11060 GOTO 560 ' End of PC3SC.MRG.
  28.